﻿Imports System.Data.SqlClient
Public Class DFR_00
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EFR_00) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_FR00")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@apenom", dts.apenomm)
            cmd.Parameters.AddWithValue("@nacionalidad", dts.nacionalidadd)
            cmd.Parameters.AddWithValue("@tipodoc", dts.tipodocc)
            cmd.Parameters.AddWithValue("@numdoc", dts.numdocc)
            cmd.Parameters.AddWithValue("@domicilio", dts.domicilioo)
            cmd.Parameters.AddWithValue("@num", dts.numm)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codpostall)
            cmd.Parameters.AddWithValue("@localidad", dts.localidadd)
            cmd.Parameters.AddWithValue("@provincia", dts.provinciaa)
            cmd.Parameters.AddWithValue("@clase", dts.clasee)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@año", dts.añoo)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasiss)
            cmd.Parameters.AddWithValue("@capacidad", dts.capacidadd)
            cmd.Parameters.AddWithValue("@peso", dts.pesoo)
            cmd.Parameters.AddWithValue("@fecharadicacion", dts.fecharadicacionn)
            cmd.Parameters.AddWithValue("@fechafactura", dts.fechafacturaa)
            cmd.Parameters.AddWithValue("@x1", dts.xuno)
            cmd.Parameters.AddWithValue("@x2", dts.xdos)
            cmd.Parameters.AddWithValue("@x3", dts.xtres)
            cmd.Parameters.AddWithValue("@x4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@x5", dts.xcinco)
            cmd.Parameters.AddWithValue("@x6", dts.xseis)
            cmd.Parameters.AddWithValue("@x7", dts.xsiete)
            cmd.Parameters.AddWithValue("@x8", dts.xocho)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacioness)

            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EFR_00) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_editar_FR00")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@dominio", dts.domini)
            cmd.Parameters.AddWithValue("@apenom", dts.apenomm)
            cmd.Parameters.AddWithValue("@nacionalidad", dts.nacionalidadd)
            cmd.Parameters.AddWithValue("@tipodoc", dts.tipodocc)
            cmd.Parameters.AddWithValue("@numdoc", dts.numdocc)
            cmd.Parameters.AddWithValue("@domicilio", dts.domicilioo)
            cmd.Parameters.AddWithValue("@num", dts.numm)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codpostall)
            cmd.Parameters.AddWithValue("@localidad", dts.localidadd)
            cmd.Parameters.AddWithValue("@provincia", dts.provinciaa)
            cmd.Parameters.AddWithValue("@clase", dts.clasee)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@año", dts.añoo)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@numchasis", dts.numchasiss)
            cmd.Parameters.AddWithValue("@capacidad", dts.capacidadd)
            cmd.Parameters.AddWithValue("@peso", dts.pesoo)
            cmd.Parameters.AddWithValue("@fecharadicacion", dts.fecharadicacionn)
            cmd.Parameters.AddWithValue("@fechafactura", dts.fechafacturaa)
            cmd.Parameters.AddWithValue("@x1", dts.xuno)
            cmd.Parameters.AddWithValue("@x2", dts.xdos)
            cmd.Parameters.AddWithValue("@x3", dts.xtres)
            cmd.Parameters.AddWithValue("@x4", dts.xcuatro)
            cmd.Parameters.AddWithValue("@x5", dts.xcinco)
            cmd.Parameters.AddWithValue("@x6", dts.xseis)
            cmd.Parameters.AddWithValue("@x7", dts.xsiete)
            cmd.Parameters.AddWithValue("@x8", dts.xocho)
            cmd.Parameters.AddWithValue("@observaciones", dts.observacioness)
            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function
End Class
